1 GOTO910 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX` 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX` 5 [153]"hhhhhhh` 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]` 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)` 35 IFUW=0THENSYSUU,15 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39 45 GETUI$:IFUI$=""THEN45 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45 60 IFUR=ULTHEN45 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT 80 UR$=LEFT$(UR$,UI):PRINT:RETURN 95 IFLEN(US$)=0THEN110 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$="" 105 RETURN 110 IFUA=46THENRETURN 115 IFUA=32ANDUR<>0THENRETURN 120 IFUA>47ANDUA<58THENRETURN 125 IFUA>64ANDUA<91THENRETURN 130 IFUA<193ORUA>218THENUI$="":RETURN 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128) 140 RETURN 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983 310 REM PROJECT DIRECTOR: FRANK WINTER 320 REM PROGRAM NAME: NUMBER SEQUENCE 330 REM WRITTEN BY A. JOHNSON 340 REM REVISED BY PETER WAN 350 REM UPDATED BY BILL CUMBERLAND 90 399 : 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0 405 PRINT"  [201][206][211][212][210][213][195][212][201][207][206][211] [146] 412 [153]" (null)HIS PROGRAM WILL HELP YOU WITH" 414 [153]" NUMBER SEQUENCES. (null)OU HAVE THE CHOICE" 416 [153]" OF FIVE DIFFERENT LEVELS. (null)EVEL ONE" 418 [153]" IS THE EASIEST, AND EACH LEVEL HIGHER" 420 [153]" IS MORE DIFFICULT." 422 [153]" ATNLL YOU HAVE TO DO IS FILL IN THE 424 PRINT" MISSING NUMBERS IN THE SEQUENCE THAT 426 [153]" THE COMPUTER GIVES YOU." 485 [141]820 490 [151]UT,UU% 495 [142] 699 : 700 [143] SOUND 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130] 710 [151]54296,15:[151]54277,42:[151]54278,250 715 [151]54276,23:[151]54273,23:[151]54272,191 720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130] 725 [151]54296,0:[142] 730 [143] SOUND 735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130] 740 [151]54296,15:[151]54277,18:[151]54278,242 745 [151]54276,33:[151]54273,4:[151]54272,48 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130] 755 [151]54296,0:[142] 760 [143] SOUND 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130] 770 [151]54296,7:[151]54277,42:[151]54278,250 775 [151]54276,23:[151]54273,23:[151]54272,191 780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130] 785 [151]54296,0:[142] 790 [129]T[178]1[164]500:[130]:[142] 791 [129]T[178]1[164]1000:[130]:[142] 792 [129]T[178]1[164]2000:[130]:[142] 793 [129]T[178]1[164]3000:[130]:[142] 795 [129]T[178]1[164]5000:[130]:[142] 799 : 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,5 801 [153]" A TPUG EDUCATIONAL PROGRAM 802 PRINT" FOR C64 COMPUTERS 803 [153]" GRADES 1-3 804 GOSUB791 805 PRINT" [146]"; 806 PRINT" [146]"; 807 PRINT" [146]"; 808 PRINT" NUMBER SEQUENCE [146]"; 809 PRINT" [146]"; 810 PRINT" [146]"; 811 PRINT" [146]":GOSUB792:GOSUB760 812 PRINT" INSTRUCTIONS? Y/N 813 [161]UI$:[139]UI$[179][177]"Y"[175]UI$[179][177]"N"[167]813 814 [139]UI$[178]"Y"[167] [141]400 815 [153]"LOAD AND AWAY WE GO .........":[141]791:[141]700:[141]790 816 [137]1000 820 [141]791:[141]760 823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT" 825 [161]UI$:[139]UI$[179][177]" "[167]825 830 [142] 835 [141]792:[141]760 837 [151]UN,0:[153][200](UD$,24);" PRESS SPACE BAR TO CONTINUE WAIT" 840 [161]UI$:[139]UI$[179][177]" "[167]840 845 [142] 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18) 855 [153]" --------------------------------------" 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURN" 865 UH[178]0:[153]"":[142] 875 [153][200](UD$,24);" ONE MOMENT PLEASE... ":[142] 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238 905 UD$[178]"":UP$[178]" " 906 [134]YZ(10) 909 [142] 910 [141]900:[153]"LOAD " 920 [137] 800 1000 [153]"LOAD"UC$;:[140]:[151]UY,0:[151]UX,0 1005 WW$[178]"":[140]:UG$[178]"QUESTION #":SQ$[178]"":UT$[178]" NUMBER SEQUENCE" 1010 S$[178]"":[129]I[178]826[164]857:[135]A:[151]I,A:[130]:UP[178]0 1011 [131]162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247,232 1012 [131]224,132,208,240,96,173,17,232,73,8,141,17,232,96 1200 [153]"LOAD" 1206 [153]WW$" YOU HAVE THE CHOICE OF THE FOLLOWING" 1207 [153]" FIVE LEVELS:" 1215 [153][163]7)" 1 WAIT - STEPS OF ONE" 1225 [153][163]7)" 2 WAIT - STEPS OF TWO" 1235 [153][163]7)" 3 WAIT - STEPS OF FIVE" 1245 [153][163]7)" 4 WAIT - STEPS OF TEN" 1255 [153][163]7)" 5 WAIT - VARIOUS STEPS":[141]760 1300 [153]" WHAT LEVEL DO YOU CHOOSE? ";:US$[178]"12345":UL[178]1:[141]35 1310 XT[178][197](UR$) 1410 TQ[178]0:NR[178]0:[129]ZX[178]1[164]5:UP[178]ZX:UG$[178]" QUESTION #":UP[178]ZX[171]1:[153]"LOAD" 1413 [153]" --------------------------------------" 1415 [145]XT[137]1520,1510,1530,1540,1500 1500 A[178][181]([187](TI)[172]4)[170]1:[145]A[137]1510,1520,1530,1540 1510 IN[178]2:M[178]28:[137]1550 1520 IN[178]1:M[178]82:[137]1550 1530 IN[178]5:M[178]11:[137]1550 1540 IN[178]10:M[178]2 1550 L[178]8:SN[178][181]([187](TI)[172]M)[172]IN[170]10:BS[178]0:[129]CR[178]1[164]10:YZ(CR)[178]0:[130] 1570 BS[178][181]([187](TI)[172]3)[170]2:[129]CR[178]1[164]BS 1580 F[178][181]([187](TI)[172]L)[170]1 1585 [139]YZ(F)[179][177]0[167]1580 1590 YZ(F)[178]1:[130]:[153]WW$"";:[129]CR[178]1[164]L:A$[178]" " 1630 [139]YZ(CR)[178]1[167]A$[178]" TAB(TAB( " 1640 [153]A$;:[130]:[153]WW$"";:[129]CR[178]0[164]L[171]1:A$[178]" " 1670 [139]YZ(CR[170]1)[178]0[167]A$[178][202]([196](SN[170]IN[172]CR),2) 1680 [153]A$SQ$;:[130]:[129]K[178]1[164]3:[153]:[130] 1700 NX$[178]"FIRST":[139]BS[178]1[167]NX$[178]"MISSING" 1710 [129]CC[178]1[164]L:[139]YZ(CC)[178]0[167]1800 1720 [141]760 1730 [153]" WHAT'S THE "NX$" NUMBER ? ";:US$[178]"0123456789":UL[178]2:[141]35 1735 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4) 1736 [153][200](UD$,24)UP$ 1737 [151]U1,U1%:[151]U2,U2%:[151]U3,U3%:[151]U4,U4% 1740 LE[178][197](UR$):[139]LE[178](CC[171]1)[172]IN[170]SN[167][141]4000:[137]1770 1750 [141]15000 1760 [139]PC[178]8[167]PC[178]0:[137]1730 1765 [141]12000 1770 NX$[178]"NEXT" 1800 WR[178]0:[130]CC:TQ[178]TQ[170]BS 1810 [130]ZX 1910 [139]NR[177][178]TQ[173]2[167][141]28000:[141]16000:[137]3999 2910 [141]28000:[141]29000 3999 [142] 4000 [143] * WIN ROUTINE * 4001 [141]700:[153]WW$""[166](CC[171]1)[172]5)" " 4002 [153]WW$[166](CC[171]1)[172]5)(CC[171]1)[172]IN[170]SNS" 4003 FORCR=1TO4:FORYY=1TO10:NEXT:GOSUB10000:NEXT 4004 QP=INT(RND(TI)*6)+1 4005 ONQPGOTO4006,4059,5200,6200,7200,8200 4006 PRINTS$:PRINT" [167] [165] [167] [167] [165] [207][208]" 4009 PRINT" [167] [165] [167] [167] [165] [160] [165][167]" 4011 PRINT" [167] [165][206][163][205][167] [167] [206][163][205][165][206][163][205][167][206][163][205] [206][163][205] [165][167]" 4013 PRINT" [167] [206][205] [165][207][163][163][167] [167] [165][160] [165][165] [167][167] [167] [207][163][163] [204][186]" 4014 PRINT" [167][206] [205][165][205][164][206][167] [167] [205][164][206][165][205][164][206][167] [167] [205][164][206] [162][162]" 4015 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT:PRINT:GOTO8300 4059 PRINTS$:PRINT" [167][163][163][163][163] [167] [167] [165] [207][208]" 4060 PRINT" [167] [167] [167] [165] [165][167]" 4061 PRINT" [167][192][192][192] [205] [206] [206][163][205] [206][163][205][167] [167] [206][163][205][167][206][163][205] [163][207][163] [165][167]" 4062 PRINT" [167] [214] [165] [207][163][163][167] [167] [207][163][163][167] [167] [165] [204][186]" 4063 PRINT" [167][164][164][164][164] [206][160][205][160][205][164][206] [205][164][206][167] [167] [205][164][206][167] [167] [205][164] [162][162]" 4064 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":PRINT:PRINT:GOTO8300 5200 PRINTS$:PRINT" [167][163][163][163][205] [165] [207][208]" 5206 PRINT" [167] [167] [165] [165][167] " 5207 PRINT" [167] [167] [206][163][205] [206][163][205] [206][163][205][167][206][163][205] [163][207][163] [165][167] " 5208 PRINT" [167] [167] [207][163][163] [165][160] [207][163][163][167] [160][167] [165] [204][186] " 5210 PRINT" [167][164][164][164][206] [205][164][206] [205][164][206] [205][164][206][167] [167] [205][164] [162][162] " 5220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 5232 PRINT" ":GOTO8300 6200 PRINTS$:PRINT" [206][163][163][205][160] [160][160][160][165] [167] [165] [167] [207][208]" 6206 PRINT" [165] [165] [167] [165] [167] [165][167]" 6207 PRINT" [165] [163][208] [206][163][205] [206][163][205] [206][163][205][165] [167] [165][206][163][205][167][206][163][167] [206] [165][167]" 6208 PRINT" [165] [167] [165][160][167] [165][160][167] [165][160][160][165] [167] [206][205] [165][165][160][167][167] [167][206][205] [204][186]" 6210 PRINT" [205][164][164][206] [205][164][206] [205][164][206] [205][164][206][165] [167][206][160][160][205][165][205][164][206][167] [167] [205] [162][162]" 6220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 6232 PRINT" ":GOTO8300 7200 PRINTS$:PRINT" [206][163][163][205][160] [165] [207][208]" 7206 PRINT" [165] [165] [165][167]" 7207 PRINT" [165] [163][208][167][206][163][205] [206][163][205] [163][205] [163][207][163] [165][167]" 7208 PRINT" [165] [167][167] [160] [207][163][163] [206][163][205][165] [165] [204][186]" 7210 PRINT" [205][164][164][206][167] [205][164][206] [205][164][206][165] [205][164] [162][162]" 7220 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 7232 PRINT" ":GOTO8300 8200 PRINTS$:PRINT" [167] [165] [165] [207][208]" 8206 PRINT" [167] [165] [165] [165][167]" 8207 PRINT" [167] [165] [163][205] [165] [165] [163][207][163] [206][163][205] [206][163][205] [206][163][205] [165][167]" 8208 PRINT" [167] [206][205][160][165][206][163][205][165][165] [165] [165] [165][160][167] [165][160] [165][165][160][167] [204][186]" 8210 PRINT" [167][206][160][160][205][165][205][164][206][165][205][164][206][165] [205][164] [205][164][206] [205][164][206][165][205][164][206] [162][162]" 8220 PRINT" [175][175][175][175][175][175][175][175][175] [165][175][175][175][175][175][175][175][175][175][175][175] [165][175][175][175][175][175][175][175][175]" 8232 PRINT" [205][164][206] [205][164][206]" 8300 GOSUB791:GOSUB860:PRINTS$:FORII=1TO8:PRINT" "UP$,:NEXT:PRINTWW$"" 8302 FORII=1TO8:PRINTUP$,:NEXT:PRINTWW$"";:NR=NR+1:RETURN 10000 IFUW=0THENZZ=PEEK(53281):POKE53281,INT(RND(1)*16) 10001 IFUW=0THENFORZ=1TO60:NEXT:POKE53281,ZZ:RETURN 10010 SYS826:RETURN 11279 PRINT:FORX=1TO5:PRINT" [146]":NEXT:GOSUB730 11280 PRINT"[145][145][145] YOU'RE WRONG AGAIN ! [146]":GOSUB835:GOSUB860:RETURN 12000 PRINTWW$"THE RIGHT ANSWER WAS "MID$(STR$((CC-1)*IN+SN),2) 12500 FORX=1TO40 12501 PRINTWW$""SPC((CC-1)*5)" " 12502 PRINTWW$SPC((CC-1)*5)""MID$(STR$((CC-1)*IN+SN),2) 12503 PRINTWW$SPC((CC-1)*5)""MID$(STR$((CC-1)*IN+SN),2) 12508 NEXT:GOSUB835:GOSUB860:PRINTWW$"" 12509 FORII=1TO8:PRINT" "UP$:NEXT:PRINTWW$"":RETURN 15000 IFWR=1THENTY=5:GOSUB11279:GOTO15050 15005 PRINT:FORX=1TO5:PRINT" [146]":NEXT:GOSUB730 15008 PRINT"[145][145][145]YOU'RE WRONG -- BUT TRY AGAIN[146]" 15040 GOSUB835:GOSUB860 15050 PRINTWW$"":FORII=1TO14 15051 PRINTUP$:NEXT:PRINTWW$"":IFTY=5THENTY=0:RETURN 15075 WR=WR+1 15095 PC=8 15190 RETURN 15199 : 16000 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164] 16005 [153]" CLOSE(null) CLOSEFN THEN (null) 16010 PRINT" [206][160][160] [212] [217] [205] 16015 [153]" (null) CLOSE CHR$ LEFT$ (null) 16020 PRINT" [206] [194] [221] [205] 16025 [153]"CLOSE (null) (null)CLOSEPEEK (null) 16030 PRINT" [167] [200] [199] [165] 16035 [153]" (null) (null)CLOSE(null) (null) 16040 PRINT" [200][164][210][198][192][195][195][195][192][198][210][186][160][204][210][198][192][195][195][195][192][198][210][164][199] 16045 [153]" (null)ANDPOSNEWFREUSRUSRUSRFREWAITNEWPOSANDTAB(ANDPOSNEWFREUSRUSRUSRFREWAITNEWPOSAND(null) 16050 PRINT" [206][165] [146]  [146][167][205] 16055 [153]" (null) FN WAIT  WAITTHEN (null) 16060 PRINT" [206] [165] [146]  [146][167] [205] 16065 [153]" (null) (null)USRFRENEWPOSANDANDANDPOSNEWWAITFRETOCLOSETOFRENEWPOSANDANDANDPOSNEWWAITFREUSR(null) (null) 16070 PRINT"[160] [165] [207][197][196][195][192][192][192][195][196][197][167][160][165][197][196][195][192][192][192][195][196][197][208] [167] 16075 [153]" FN FN CLOSE(null)TO(null) THEN THEN 16080 PRINT"[160] [165] [205] [169][146][207] [146][208][223][146][160] [206] [167] 16085 [153]" FN (null) (null) WAITFN WAITTHEN WAIT(null) (null) THEN 16090 PRINT" [165] [160] [160] [205] [169][146][165][160][146][165] [146][167][160][146][167][223][146] [206] [167] 16095 [153]" (null) CLOSE CLOSE FN (null)CLOSEWAITFNCLOSEWAITFN WAITTHENCLOSEWAITTHENCLOSEWAIT(null) THEN (null) 16100 PRINT"[167][160] [160] [160] [165] [169][146][165][160][146][165][160][146][165][160][146][167][160][146][167] [146][167][223][146] [167] [165] 16105 [153]"THEN FN TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( THEN FN 16110 PRINT"[167] [205][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][206][160] [165] 16115 [153]"CLOSE(null)TOANDPOSNEWFREUSRTAB(CLOSE TAB(TAB(TAB(USRFREWAITNEWPOSANDTO(null)CLOSE 16120 PRINT" DARTH VADER CONGRATULATES YOU!" 16124 GOTO16140 16128 FO=2000 16133 FO=FO/1.5:FORI=0TOFO:NEXT:GOSUB10000:IFFO>0THEN16133 16138 PRINT"[147]":GOSUB10000:GOSUB10000:RETURN 16140 FORFO=1TO70:FORAK=1TO10:NEXT:GOSUB10000:NEXT 16150 FORU=1TO20:PRINT"[142]";:GOSUB10000:NEXT 16155 PRINT"[147] [217]OU HAVE A CHOICE: 16160 [153]" (null)RESS  (null) WAIT TO PLAY AGAIN. 16165 PRINT" [208]RESS  M [146] TO RETURN TO THE [205][197][206][213] 16170 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]16170 16175 [139]R$[178]"P"[167][140]:[137]1000 16182 [153]"LOAD RETURNING TO THE MAIN MENU 16184 LOAD"MENU",8 16186 RUN 16188 END 28000 PRINT"[147]" 28050 PRINT" YOU GOT"NR"OUT OF"TQ"BLANKS RIGHT!":GOSUB835 28080 RETURN 29000 PRINT"[147] BETTER LUCK NEXT TIME!!":GOSUB835 29010 RETURN 30000 REM WHC 90:11:29